GEN4 #76/GEN4 CD 76.iso/mac/Wrath of the Gods Demo/Shared.Dir/01422_setScreen.ls

Text File | 1994-09-20 | 433 b | 19 lines

on mouseUp
  if withinRect(254, 412, 260, 296, getMouseLoc()) then
    killScreenOver()
  end if
end

on withinRect left, right, top, bottom, mouseLoc
  if (left <= item 1 of mouseLoc) and (right >= item 1 of mouseLoc) and (top <= item 2 of mouseLoc) and (bottom >= item 2 of mouseLoc) then
    return 1
  end if
  return 0
end

on getMouseLoc
  set mouseLoc to the mouseH
  put "," & the mouseV after mouseLoc
  return mouseLoc
end